home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / com.mod
Text File  |  1985-11-19  |  3KB  |  63 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. MODULE  com;
  9. FROM    XBIOS   IMPORT  ConfigureRS232,SerialSpeed,FlowFlavor;
  10. FROM    BIOS    IMPORT  BConStat,BCosStat,BConIn,BConOut,Device;
  11. FROM    GEMX    IMPORT  BasePageAddress;
  12. VAR     longchar        :       LONGCARD;
  13.         t               :       BITSET;
  14.         char            :       CHAR;
  15.         port            :       Device;
  16. BEGIN
  17.         char:=BasePageAddress^.CmdLine[1];
  18.         IF (char='m') OR (char='M') THEN
  19.            port:=HSS;
  20.         ELSE
  21.            port:=AUX;
  22.         END;
  23.         IF port=AUX THEN
  24.            IF (char=0c) THEN
  25.               ConfigureRS232(BPS1200,NONE,-1,-1,-1,-1); 
  26.            END; 
  27.            IF (char='0') THEN
  28.               ConfigureRS232(BPS300,NONE,-1,-1,-1,-1); 
  29.            END; 
  30.            IF (char='1') THEN
  31.               ConfigureRS232(BPS1200,NONE,-1,-1,-1,-1); 
  32.            END; 
  33.            IF (char='2') THEN
  34.               ConfigureRS232(BPS2400,NONE,-1,-1,-1,-1); 
  35.            END; 
  36.            IF (char='4') THEN
  37.               ConfigureRS232(BPS4800,NONE,-1,-1,-1,-1); 
  38.            END; 
  39.            IF (char='9') THEN
  40.               ConfigureRS232(BPS9600,NONE,-1,-1,-1,-1); 
  41.            END; 
  42.            IF (char='h') OR (char='H') THEN
  43.               ConfigureRS232(BPS19200,NONE,-1,-1,-1,-1); 
  44.            END; 
  45.         END;
  46.         LOOP
  47.                 IF BConStat(CON) THEN (* read keyboard *)
  48.                    longchar:=BConIn(CON);
  49.                    IF (longchar DIV 65536) = 61H THEN EXIT END;
  50.                    char:=CHAR(longchar); 
  51.                    BConOut(port,char);
  52.                 END;
  53.  
  54.                 IF BConStat(port) THEN (* read com port *)
  55.                    longchar:=BConIn(port);
  56.                    t:=BITSET(longchar);
  57.                    EXCL(t,7);
  58.                    char:=CHAR(t); 
  59.                    BConOut(CON,char);
  60.                 END;
  61.         END;
  62. END     com.
  63. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə